home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / R / RRPHelp.cpt / Sample < prev   
Encoding:
Text File  |  1987-11-08  |  1.6 KB  |  55 lines  |  [TEXT/MEDT]
  1. ( This is a test of version 1.5 of the 'Fix Red Ryder procedure' procedure. It
  2. ( also demonstrates some of the problems...
  3.  
  4. ( Check the simple stuff...
  5. MENU OFF
  6. MENUDOES01 23
  7. ESC OFF
  8. DEL ON
  9. LET EQUAL `0,~1
  10. COPYINTO ~2,`3
  11. SCREENCOPY
  12. CURSOR H
  13. CURSOR A
  14. TEST `4=5
  15. IF YES MENU OFF
  16. IF NO MENUDOES03 21
  17. IF ERROR ESC ON
  18. IF NO ERROR DEL OFF
  19. ONPANIC SCREENCOPY
  20. ALERT1 THIS_IS_A_TEST/CURSOR H
  21. ALERT2 STILL_A_TEST/CURSOR A
  22. ALERT3 THIS_IS_REAL/COPYINTO ~2,`3
  23.  
  24. ( Now for some increased complexity...
  25. TEST `6>~7
  26. ADD `8,~9
  27. SUBTRACT `0,~1
  28. IF YES TEST `6>~7
  29. IF ERROR JUMPTO (DONE)
  30. IF NO ERROR IF NO ALERT1 DEL ON/ADD `8,~9
  31. IF ERROR IF YES ONPANIC ALERT2 SCREENCOPY/ALERT3 END/LET EQUAL `0,~1
  32. JUMPTO This JUMPTO should get a length warning if using 20 character limit
  33. JUMPTO Warn this JUMPTO too!
  34. JUMPTO But not this label !
  35. IF YES JUMPTO This JUMPTO should get a length warning for exceeding 20 chars!
  36. This line is exactly 79 characters in length so should NOT be warned.......79>!
  37. This line exceeds 79 characters in length by one char so should be WARNed..80> !
  38.  
  39. (Check for label lengths...
  40. (        10        20        30        40        50        60        70
  41. (23456789/123456789/123456789/123456789/123456789/123456789/123456789/123456789
  42. (This label should not be converted if using 20 character limit
  43. (Nor should this one!
  44. (But this label will
  45.  
  46. ( Check for string  variables: ~0 ~1 ~2 ~3 ~4 ~5 ~6 ~7 ~8 ~9
  47. ( Check for numeric variables: `0 `1 `2 `3 `4 `5 `6 `7 `8 `9
  48. (DONE)
  49. END
  50.  
  51. (The following should not be affected except for variables or as noted:
  52. COPYINTO ~0,BETTER ESCAPE DELETION OF THIS LINE
  53. ADD `0,1
  54. SUBTRACT `2,3
  55.